This is a title
This is \(LATEX_{text}\) and an equation:
\[
f\left(k\right) = \binom{n}{k} p^k\left(1-p\right)^{n-k}
\tag{1.1}
\]
And a reference to Eq. (1.1).
This is a subtitle
This is a reference to an article [1] and a book [2].
library(ggplot2)
theme_set(theme_bw())
P <- ggplot(mtcars, aes(mpg, cyl)) + geom_point()
P
And this is a reference to Fig. 1.1.
library(plotly)
ggplotly(P, dynamicTicks = TRUE)
Printing tables
And see Table 1.1.
Table 1.1: The mtcars data.
| Mazda RX4 |
21.0 |
6 |
160 |
110 |
3.90 |
| Mazda RX4 Wag |
21.0 |
6 |
160 |
110 |
3.90 |
| Datsun 710 |
22.8 |
4 |
108 |
93 |
3.85 |
| Hornet 4 Drive |
21.4 |
6 |
258 |
110 |
3.08 |
| Hornet Sportabout |
18.7 |
8 |
360 |
175 |
3.15 |
LS0tCnRpdGxlIDogIlRpdGxlIgphdXRob3I6ICJBdXRob3IiCmRhdGUgIDogImByIFN5cy5EYXRlKClgIgpvdXRwdXQ6IAogICAgYm9va2Rvd246Omh0bWxfZG9jdW1lbnQyOiAKICAgICAgICB0b2MgICAgICAgICAgICA6IHllcwogICAgICAgIHRvY19mbG9hdCAgICAgIDogeWVzCiAgICAgICAgY29kZV9mb2xkaW5nICAgOiBoaWRlCiAgICAgICAgY29kZV9kb3dubG9hZCAgOiB5ZXMKICAgICAgICBoaWdobGlnaHQgICAgICA6IHRhbmdvCiAgICAgICAgbnVtYmVyX3NlY3Rpb25zOiB0cnVlCiAgICAgICAgZmlnX2NhcHRpb24gICAgOiB0cnVlCiAgICAgICAgZmlnX251bWJlciAgICAgOiB0cnVlCiAgICAgICAgdGhlbWUgICAgICAgICAgOiBjb3NtbwogICAgICAgIGNzcyAgICAgICAgICAgIDogInN0eWxlLmNzcyIKY3NsOiBuYXR1cmUuY3NsCmJpYmxpb2dyYXBoeTogYmlibGlvLmJpYgotLS0KCiMgVGhpcyBpcyBhIHRpdGxlCgpUaGlzIGlzICRMQVRFWF97dGV4dH0kIGFuZCBhbiBlcXVhdGlvbjoKCiQkCiAgZlxsZWZ0KGtccmlnaHQpID0gXGJpbm9te259e2t9IHBea1xsZWZ0KDEtcFxyaWdodClee24ta30KICAoXCNlcTpiaW5vbSkKJCQKCkFuZCBhIHJlZmVyZW5jZSB0byBFcS4gXEByZWYoZXE6Ymlub20pLgoKCiMjIFRoaXMgaXMgYSBzdWJ0aXRsZQoKVGhpcyBpcyBhIHJlZmVyZW5jZSB0byBhbiBhcnRpY2xlIFtAZmFrZV9hcnRpY2xlXSBhbmQgYSBib29rIFtAYXNoY3JvZnRfc29saWRfMTk3Nl0uCgpgYGB7ciBhblJjaHVuaywgZmlnLmNhcD0iVGhpcyBpcyBhIHN0YXRpYyBmaWd1cmUiLCBmaWcuYWxpZ249ImNlbnRlciJ9CmxpYnJhcnkoZ2dwbG90MikKdGhlbWVfc2V0KHRoZW1lX2J3KCkpClAgPC0gZ2dwbG90KG10Y2FycywgYWVzKG1wZywgY3lsKSkgKyBnZW9tX3BvaW50KCkKUApgYGAKCkFuZCB0aGlzIGlzIGEgcmVmZXJlbmNlIHRvIEZpZy4gXEByZWYoZmlnOmFuUmNodW5rKS4KCgpgYGB7ciBhblJjaHVuazIsIGZpZy5jYXA9IlRoaXMgaXMgYW4gaW50ZXJhY3RpdmUgZmlndXJlIiwgZmlnLmFsaWduPSJjZW50ZXIiLCBtZXNzYWdlPUZBTFNFLCB3YXJuaW5nPUZBTFNFfQpsaWJyYXJ5KHBsb3RseSkKZ2dwbG90bHkoUCwgZHluYW1pY1RpY2tzID0gVFJVRSkKYGBgCgojIyBQcmludGluZyB0YWJsZXMKCkFuZCBzZWUgVGFibGUgXEByZWYodGFiOm10Y2FycykuCgpgYGB7ciBtdGNhcnMsIGVjaG89RkFMU0V9CmtuaXRyOjprYWJsZShtdGNhcnNbMTo1LCAxOjVdLCBjYXB0aW9uID0gIlRoZSBtdGNhcnMgZGF0YS4iKQpgYGAKCmBgYHtyIG10Y2Fyc19EVCwgZWNobz1GQUxTRX0KRFQ6OmRhdGF0YWJsZShtdGNhcnMpCmBgYAoKCiMgUmVmZXJlbmNlcwoKTW9yZSBpbmZvcm1hdGlvbiBoZXJlOiBodHRwczovL2Jvb2tkb3duLm9yZy95aWh1aS9ib29rZG93bi9hLXNpbmdsZS1kb2N1bWVudC5odG1s